home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / turbovis / oodb.zip / LAYOUT.PAS < prev    next >
Pascal/Delphi Source File  |  1992-04-29  |  879b  |  35 lines
  1. unit Layout;
  2.  
  3. interface
  4.  
  5.    uses Objects, MsgBox;
  6.  
  7.    procedure HandleError ( Mess: String );
  8.    procedure Inform ( R: TRect; Mess: String; Params: Pointer );
  9.    function  Confirm ( Mess: String ): Word;
  10.  
  11. implementation
  12.  
  13.    procedure HandleError ( Mess: String );
  14.        var C: Word;
  15.        begin
  16.           C := MessageBox ( Mess, nil, mfError + mfOKButton )
  17.        end;
  18.  
  19.    procedure Inform ( R: TRect; Mess: String; Params: Pointer );
  20.        var C: Word;
  21.        begin
  22.           C := MessageBoxRect ( R, Mess, Params,
  23.                                 mfInformation + mfOKButton )
  24.        end;
  25.  
  26.    function Confirm ( Mess: String ): Word;
  27.        var R: TRect;
  28.        begin
  29.           R.Assign (10,4,60,12);
  30.           Confirm := MessageBoxRect ( R, Mess, nil,
  31.                                       mfConfirmation + mfOKCancel )
  32.        end;
  33.  
  34.    end.
  35.